home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Meso.cpt / Mesopotamia 0.9 / card_12672.txt < prev    next >
Text File  |  1987-12-05  |  2KB  |  65 lines
  1. -- card: 12672 from stack: in.9
  2. -- bmap block id: 15638
  3. -- flags: 0000
  4. -- background id: 11179
  5. -- name: cun1
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=458 top=301 right=335 bottom=504
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 24317 / 24317
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Go first
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set lockscreen to true
  23.   go card "tline"
  24.   hide background field "one"
  25.   hide background field "two"
  26.   hide background field "three"
  27.   hide background field "four"
  28.   set lockscreen to false
  29.   visual effect dissolve
  30.   go to card "tline"
  31. end mouseUp
  32.  
  33.  
  34.  
  35.  
  36. -- part 3 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=370 top=260 right=296 bottom=405
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: right dogear
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   -- this script handles a diagonally divided button, intended to be
  51.   --  a right dogear
  52.   put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  53.   put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  54.   if (x < y) then              -- click is in upper left
  55.     visual effect wipe left
  56.     play "click"
  57.     go to next card
  58.   else
  59.     visual effect wipe right
  60.     play "click"
  61.     go card "cun6"
  62.   end if
  63. end mouseUp
  64.  
  65.